home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Remote Access Removable Drives.ttp < prev    next >
INI File  |  2005-03-15  |  2KB  |  73 lines
  1. [SETTINGS]
  2. category=Security Tweaks::Network::Remote Access to Removable Drives
  3. Caption=Restrict Remote Access to Removable Drives
  4. version=1.0
  5. OSVERSION=2000,XP,2003
  6. #=By default, Windows allows remote users access to removable drives: floppy drive, CD and ZIP. It is possible to restrict access to these drives only to the user physically logged onto the system.
  7. #=\nIf the 'Shared on the network' option is selected, the media is shared as an administrative share on the network. So remote users can access it.
  8. #=\nIf the 'Only the user logged on locally' option is selected, administrators and remote users are prevented from accessing the drive while the current user is logged on. The drive is shared again when the current user logs off.
  9. #=\n\nNote: "Removable hard disks" are drives like IOmega JAZ, ZIP etc.
  10. #=\n\nNote : If you see any problems with 'Windows Installer' (e.g. of Microsoft Office), reset to the defaults.
  11. Author=
  12. LEVEL=3
  13.  
  14. [INTERFACE]
  15. TYPE=multi
  16. type0=droplist
  17. type1=droplist
  18. type2=droplist
  19. Text0=Allow access to CD-ROM drive :
  20. Text1=Allow access to Floppy disk drive : 
  21. Text2=Allow access to Removable hard disks :
  22.  
  23. [SCRIPT]
  24. Dim str1,str2,str3
  25. str1="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\allocatecdroms"
  26. str2="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\allocatefloppies"
  27. str3="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Allocatedasd"
  28.  
  29. Sub OnInit() 
  30.  
  31. SetItemTextEx 0, 0, "Shared on the network (default)"
  32. SetItemTextEx 0, 1, "Only the user logged on locally"
  33.  
  34. SetItemTextEx 1, 0, "Shared on the network (default)"
  35. SetItemTextEx 1, 1, "Only the user logged on locally"
  36.  
  37. SetItemTextEx 2, 0, "Administrators only (default)"
  38. SetItemTextEx 2, 1, "Administrators and power users"
  39. SetItemTextEx 2, 2, "Administrators and the local current user"
  40.  
  41.  
  42. Dim s
  43.  
  44. s = RegReadValue(str1)
  45. If isempty(s) Or S = "0" then SetCurSel 0,0 else SetCurSel 0,1
  46.     
  47.     
  48. s = RegReadValue(str2)
  49. If isempty(s) Or S = "0" then SetCurSel 1,0 else SetCurSel 1,1
  50.  
  51. s = RegReadValue(str3)
  52. If isempty(s) Or S = "0" then
  53.     SetCurSel 2,0
  54. elseif s= "1" then 
  55.     SetCurSel 2,1
  56. else
  57.     SetCurSel 2,2
  58. end if
  59.     
  60. End Sub
  61.  
  62. Sub OnApply(x,y)
  63. RegWriteValueS str1, GetCurSel(0)
  64. RegWriteValueS str2, GetCurSel(1)
  65. Dim s
  66. s = GetCurSel(2)
  67. if s= 0 then
  68.     RegDeleteVal str3 'not present by defalt
  69. else    
  70.     RegWriteValueS str3,CStr(s) 
  71. end if
  72. End Sub
  73.